home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD006b.dsk / BUMBLE.BEE.bas < prev    next >
BASIC Source File  |  2003-06-12  |  4KB  |  70 lines
  1. 100  REM *** BUMBLE BEE ***
  2. 110  CLEAR : TEXT : NORMAL 
  3. 120  PRINT  CHR$(4)"NOMONCIO"
  4. 130  HOME 
  5. 140  HTAB 15: VTAB 21: PRINT "BUMBLE BEE"
  6. 150  HTAB 10: VTAB 23: PRINT "TYPE <CTRL>-C TO STOP"
  7. 160  ONERR  GOTO 280
  8. 170  GR : COLOR= 6: FOR Z = 0 TO 19: HLIN 0,39 AT Z: NEXT 
  9. 180  COLOR= 12: FOR Z = 20 TO 39: HLIN 0,39 AT Z: NEXT 
  10. 190  FOR Z = 16 TO 28  STEP 2: READ X,Y: COLOR= 8: HLIN X,Y AT Z: READ X,Y: COLOR= 9: HLIN X,Y AT Z +1: NEXT 
  11. 200  COLOR= 8: HLIN 25,38 AT 29: VLIN 30,38 AT 25: VLIN 30,38 AT 38: VLIN 30,35 AT 27: VLIN 30,35 AT 36
  12. 210  COLOR= 9: FOR Z = 1 TO 24: READ X,Y: PLOT X,Y: NEXT : COLOR= 4: FOR Z = 1 TO 8: READ X,Y: PLOT X,Y: PLOT X,Y +1: NEXT 
  13. 220  FOR X = 770 TO 790: READ Z: POKE X,Z: NEXT 
  14. 230  READ UN: COLOR= 13: PLOT UN/4,20 -UN/10: POKE 768,UN: POKE 769,25: CALL 770: COLOR= 6: PLOT UN/4,20 -UN/10: GOTO 230
  15. 240  DATA 31,32,30,33,29,34,29,34,28,35,28,35,27,36,26,37,26,37,25,38,25,38,25,38,25,38,25,38
  16. 250  DATA 1,18,2,19,3,18,4,19,5,20,6,19,8,17,9,18,10,17,11,20,12,21,13,20,14,18,15,19,16,18,2,22,3,23,4,22,7,24,8,25,9,24,13,23,14,24,15,23
  17. 260  DATA 2,20,5,21,9,19,12,22,15,20,3,24,8,26,14,25
  18. 270  DATA 173,48,192,136,208,5,206,1,3,240,9,202,208,245,174,0,3,76,2,3,96
  19. 280  COLOR= 13: PLOT 31,15: POKE 768,144: POKE 769,255: CALL 770
  20. 290  POKE 216,0
  21. 330  END 
  22. 340  REM --------------------
  23. 350  DATA 96,102,108,114,108,114,121,128,96,102,108,114,108,114,121,128
  24. 360  DATA 96,102,108,114,121,128,136,144,153,144,136,128,121,114,108,102
  25. 370  DATA 96,102,108,114,121,91,96,102,96,102,108,114,121,114,108,102
  26. 380  DATA 96,102,108,114,121,91,96,102,96,102,108,114,121,114,108,102
  27. 390  DATA 96,102,108,114,108,114,121,128,121,114,108,102,96,91,96,102
  28. 400  DATA 96,102,108,114,108,114,108,108,114,121,128,121,114,108,102,96,85,81,76
  29. 410  DATA 72,76,81,85,91,68,72,76,72,76,81,85,91,85,81,76
  30. 420  DATA 72,76,81,85,91,68,72,76,72,76,81,85,91,85,91,85,81,76
  31. 430  DATA 72,76,81,85,81,85,91,96,91,85,81,76,72,68,72,76
  32. 440  DATA 72,76,81,85,91,96,102,96,91,85,81,76,72,68,72,76
  33. 450  DATA 72,144,144,144,144,144,144,144,136,153,136,153,136,153,136,153
  34. 460  DATA 144,144,144,144,144,144,144,144,136,153,136,153,136,153,136,153
  35. 470  DATA 144,136,144,153,144,136,144,153,144,136,144,153,144,144,136,144,153
  36. 480  DATA 144,136,128,121,114,121,128,136,144,136,144,136,128,121,114,108,102,96
  37. 490  DATA 108,108,108,108,108,108,108,108,102,114,102,114,102,114,102,114
  38. 500  DATA 108,108,108,108,108,108,108,108,102,114,102,114,102,114,102,114
  39. 510  DATA 108,102,108,114,108,102,108,114,108,102,108,114,108,102,108,114
  40. 520  DATA 108,102,96,91,85,91,96,102,108,102,96,91,85,81,76,72
  41. 530  DATA 53,57,60,64,68,50,53,57,53,57,60,64,68,64,60,57
  42. 540  DATA 53,57,60,64,60,64,68,72,68,64,60,57,60,57,53,50
  43. 550  DATA 47,50,53,57,53,57,60,64,60,64,68,72,76,81,85,91
  44. 560  DATA 96,91,96,102,96,91,96,102,96,91,96,102,96,91,96,102
  45. 570  DATA 96,91,96,102,96,91,96,102,96,91,96,102,96,91,96,102
  46. 580  DATA 47,47,47,47,47,47,60,60,72,72,91,91,72,72,60,60
  47. 590  DATA 47,47,47,47,47,47,60,60,72,72,91,91,72,72,60,60 
  48. 600  DATA 47,47,47,47,47,47,47,47,47,47,47,47,47,47,47,47
  49. 610  DATA 96,96,96,96,96,91,85,81,76,72,68,64,60,57,53,50
  50. 620  DATA 47,50,53,57,60,45,47,50,47,50,53,57,60,57,53,50
  51. 630  DATA 47,50,53,57,60,45,47,50,47,50,53,57,60,57,53,50
  52. 640  DATA 47,50,53,57,53,57,60,64,60,57,53,50,47,45,47,50
  53. 650  DATA 47,50,53,57,53,57,60,64,60,57,53,50,47,42,40,37
  54. 660  DATA 35,37,40,42,45,33,35,37,35,37,40,42,45,42,40,37
  55. 670  DATA 35,37,40,42,45,33,35,37,35,37,40,42,45,42,40,37
  56. 680  DATA 35,37,40,42,40,42,45,47,45,42,40,37,35,33,35,37
  57. 690  DATA 35,37,40,42,47,45,42,40,37,35,33,31,29,27,25,24
  58. 700  DATA 23,24,25,27,29,21,23,24,23,24,25,27,29,27,25,24
  59. 710  DATA 23,24,25,27,29,21,23,24,23,24,25,27,29,21,23,24
  60. 720  DATA 85,81,76,72,68,64,60,57,53,57,60,64,60,64,68,72
  61. 730  DATA 76,72,68,64,60,57,53,50,47,45,47,50,47,45,47,50
  62. 740  DATA 47,81,76,72,68,64,60,57,53,57,60,64,60,64,68,72
  63. 750  DATA 76,72,68,64,60,57,53,50,47,45,47,50,47,42,40,37
  64. 760  DATA 35,37,40,42,40,42,45,47,45,47,50,53,57,60,64,68
  65. 770  DATA 72,76,81,85,81,85,91,96,91,96,102,108,114,121,128,136
  66. 780  DATA 144,136,144,153,144,136,144,153,144,136,144,153,144,128,121,108
  67. 790  DATA 96,91,96,102,96,91,96,102,96,91,96,102,96,85,81,76
  68. 800  DATA 72,81,85,91,96,102,108,114,121,128,136,153,144,136,128,121
  69. 810  DATA 114,108,102,96,91,85,81,76,72,68,64,60,57,53,50,47
  70. 820  DATA 35,35,35,35,35,35,35,35,72,72,72,72,96,96,96,96